Imports CasClientBase
Imports ccapps.persistent.MVPN_Lib
Imports ccapps.Util

Namespace Web.page

    Public Class MVPN_Rapor_UserKullanim
        Inherits [lib].BasePage

        Protected WithEvents DefProf As System.Web.UI.HtmlControls.HtmlSelect
        Protected WithEvents txt_StartDate As System.Web.UI.WebControls.TextBox
        Protected WithEvents txt_EndDate As System.Web.UI.WebControls.TextBox
        Protected WithEvents custcode As System.Web.UI.WebControls.TextBox

#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents ltlAlert As System.Web.UI.WebControls.Literal
        Protected WithEvents Button66 As System.Web.UI.WebControls.Button
        Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
        Protected WithEvents proc As System.Web.UI.HtmlControls.HtmlInputHidden
        'Protected WithEvents Button1 As System.Web.UI.HtmlControls.HtmlInputButton

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here
            Me.PageTitle = "MVPN Tool User Report"
            Me.HelpDocName = ""
            Message = ""
            Dim Vproc As String
            Vproc = Me.proc.Value
            Me.proc.Value = ""

            If Session("MVPN_by_pass_tmcode_black_profile") = "" Then
                Dim l_dummy_MVPN_by_pass_tmcode_black_profile As String
                Get_Role_Control_Ability(Session("role_id"), l_dummy_MVPN_by_pass_tmcode_black_profile)
                Session("MVPN_by_pass_tmcode_black_profile") = l_dummy_MVPN_by_pass_tmcode_black_profile
            End If

            Select Case Vproc
                Case "BtnHndl_Rapor"
                    BtnHndl_Rapor()
            End Select

        End Sub

   
        Private Sub BtnHndl_Rapor()
            UserReport(txt_StartDate.Text, txt_EndDate.Text, Session("XLS_Data"))
            Response.Redirect("ExcelGoster.aspx")
        End Sub

    End Class
End Namespace